  Substitute appropriate job card label for XXXXXXX, Userid for USERX,
//*  High Level Qualifier for UNAME, PDS members and OUTP DD
//*  Set Input values for lines BPOOL DD statement.
//*      Delete/add extra input member names
//XXXXXXX  JOB (?,?),USERX,CLASS=A,MSGCLASS=X,NOTIFY=?,REGION=0M
//BPOOL    EXEC PGM=IKJEFT01,COND=(4,LT),DYNAMNBR=20
//SYSEXEC  DD   DISP=SHR,DSN=UNAME.MASTER.REXX    PDS where BPOOL lives
//BPOOL     DD   DSN=UNAME.BPOOLIN(MEMBER1),DISP=SHR
//          DD   DSN=UNAME.BPOOLIN(MEMBER2),DISP=SHR
//          DD   DSN=UNAME.BPOOLIN(MEMBER3),DISP=SHR
//          DD   DSN=UNAME.BPOOLIN(MEMBER4),DISP=SHR
//INPUT    DD  *
 CUSTOMER = CUSTOMER
 INDUSTRY = INDUSTRY
 CMDDATE  = DD-MMM-YYYY
 CMDTIME  = HH:MM:SS
//OUTP     DD   DSN=UNAME.BP.OUTPUT.CSV,
//         UNIT=SYSDA,DISP=(NEW,CATLG,DELETE),
//         SPACE=(TRK,(1,1)),
//         DCB=(RECFM=VB,LRECL=4096,BLKSIZE=4100,DSORG=PS)
//SYSTSPRT DD   SYSOUT=*
//SYSPRINT DD   SYSOUT=*
//SYSTERM  DD   SYSOUT=*
//CEEDUMP  DD   SYSOUT=*
//SYSUDUMP DD   SYSOUT=*
//SYSOUT   DD   SYSOUT=*
//SYSTSIN  DD   *
 BPOOL
/*

